home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presentation Library 1993 Spring / ARPL-Spring-93-Partner-Edition.iso / Applications / Word Processing / Aldus Personal Press 2.0 / PPPouch / Additions / Text Paragraphs / Indentation / Indentation
Encoding:
Text File  |  1992-05-29  |  932 b   |  48 lines  |  [SGPA/SCPG]
  1. on startup
  2. global bailout
  3.  
  4. checkTextToolIsOn
  5. if bailout = false then
  6. set lockscreen to true
  7. set lockcursor to true
  8. set stylerecomposition to false
  9. set mousecursor to busy
  10. put paragraphindent in inches into theLeft
  11. set mousecursor to busy
  12. set paragraphindent in inches to theLeft + .25
  13. set mousecursor to busy
  14. end if
  15. end startup
  16.  
  17. on checkTextToolIsOn
  18. global bailout
  19.  
  20. put "true" into bailout
  21.  
  22. if toolmode <> "textTool" then
  23. answer "The TextTool must be turned on."
  24. else if currentStoryNumber() = "none" then
  25. answer "The text cursor must be blinking in a story or a range of paragraphs selected."
  26. else
  27. put "false" into bailout
  28. end if
  29.  
  30. end checkTextToolIsOn
  31.  
  32. on help
  33.  
  34. put  dialog (preload, 128) into thedialog
  35. put "---a\0" into item2
  36. put "---a\1" into item3
  37. put "---a\2" into item4
  38.  
  39.  
  40. repeat forever
  41. get dialog(display, thedialog)
  42. if (it = 1) then exit repeat
  43. end repeat
  44. get dialog(dispose, thedialog)
  45.  
  46. end help
  47.  
  48.     ]<BÏ